<%@  language="VBScript" %>
<%  Option Explicit %>
<!--#include virtual="adovbs.inc"-->
<%
    Dim objConn, objRSCustomers, objRSAlbums, objRSPhotos
    Dim strUserName, strSQL, strResults, strDiv
    Dim iCustID
    Dim albumID, icol
    
    Response.Expires = -1500    
    
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString = "dsn=Developer;uid=JohnNgo;pwd=jo2.0G$!;"        
    objConn.Open
    
    strSQL = "SELECT * FROM customers"
    Set objRSCustomers = Server.CreateObject("ADODB.Recordset")
    objRSCustomers.Open strSQL, objConn, 1, 3, 1

	objRSCustomers.AddNew
	'objRSCustomers.Fields("customerID").Value = 1
	objRSCustomers.Fields("username").Value = "Steven"
	objRSCustomers.Fields("password").Value = "1234"
	objRSCustomers.Update
	
	objRSCustomers.AddNew
	'objRSCustomers.Fields("customerID").Value = 2
	objRSCustomers.Fields("username").Value = "John"
	objRSCustomers.Fields("password").Value = "5678"
	objRSCustomers.Update
	
    objRSCustomers.Close
    set objRSCustomers = Nothing
    response.Write ("Done customers table.")
    
    objConn.Close
    set objConn = Nothing

%>